Public Class CCounter
    Private _intCounterID As Integer
    Private _intOperatorID As Integer
    Private _strCaption As String
    Private _strColuorCode As String
    Public Property CounterID() As Integer
        Get
            Return _intCounterID
        End Get
        Set(ByVal value As Integer)
            _intCounterID = value
        End Set
    End Property
    Public Property OperatorID() As Integer
        Get
            Return _intOperatorID
        End Get
        Set(ByVal value As Integer)
            _intOperatorID = value
        End Set
    End Property
    Public Property Caption() As String
        Get
            Return _strCaption
        End Get
        Set(ByVal value As String)
            _strCaption = value
        End Set
    End Property
    Public Property ColuorCode() As String
        Get
            Return _strColuorCode
        End Get
        Set(ByVal value As String)
            _strColuorCode = value
        End Set
    End Property
End Class
